home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
cboot.d64
/
load'graphics.l
< prev
next >
Wrap
Text File
|
2009-01-23
|
1KB
|
59 lines
1000 // LOAD GRAPHICS SCREEN FROM DISK
1010 // (C)1984 W. LOUIE 05/27/84
1020 //
1030 // WALLACE LOUIE
1040 // 3407 AVENUE 'S'
1050 // BROOKLYN, N.Y. 11234
1060 //
1070 //
1080 PROC LOAD'GRAPHICS'SCREEN(FILENAME$) CLOSED
1090 DIM NAME$ OF 20
1100 NAME$:=FILENAME$+".HRG"
1110 SETGRAPHIC 0
1120 FULLSCREEN
1130 HIDETURTLE
1140 CLEAR
1150 FILL 0,0
1160 OBJLOAD(NAME$,8)
1170 ENDPROC LOAD'GRAPHICS'SCREEN
1180 //
1190 //
1200 PROC OBJLOAD(FILENAME$,DEVICE) CLOSED
1210 FOR I:=1 TO LEN(FILENAME$) DO
1220 POKE 827+I,ORD(FILENAME$(I))
1230 ENDFOR I
1240 POKE 850,169 // LDA
1250 POKE 851,DEVICE
1260 POKE 852,170 // TAX
1270 POKE 853,160 // LDY #$FF
1280 POKE 854,255
1290 POKE 855,32 // JSR $FFBA
1300 POKE 856,186
1310 POKE 857,255
1320 POKE 858,169 // LDA
1330 POKE 859,LEN(FILENAME$)
1340 POKE 860,162 // LDX #$3C
1350 POKE 861,60
1360 POKE 862,160 // LDY #$03
1370 POKE 863,3
1380 POKE 864,32 // JSR $FFBD
1390 POKE 865,189
1400 POKE 866,255
1410 POKE 867,169 // LDA #$00
1420 POKE 868,0
1430 POKE 869,162 // LDX #$FF
1440 POKE 870,255
1450 POKE 871,160 // LDY #$FF
1460 POKE 872,255
1470 POKE 873,32 // JSR $FFD5
1480 POKE 874,213
1490 POKE 875,255
1500 POKE 876,169 // LDA
1510 POKE 877,DEVICE
1520 POKE 878,32 // JSR $FFC3
1530 POKE 879,195
1540 POKE 880,255
1550 POKE 881,96 // RTS
1560 SYS 850
1570 ENDPROC OBJLOAD